0 T=0:P=16:A$=CHR$(92)+"/":B$="########################       #########################":C$="########":K=0:E=0:DIMP(5),I:GOTO9
1 K=PEEK(2)ANDPEEK(17023):X=(K=65ANDP>0):Y=-(K=83):P=P+X+Y:E=PEEK(P+M):F=PEEK(P+N):?@P,A$;:IFE=96ANDF=96THENRETURN
2 FORT=0TO8:R=(P-T)*-(P-T>0):?@R,"*";:?@P+T,"*";:?@P+(T*32),"*";:NEXT:?@480,"SCORE"S,"AGAIN";:INPUTI$:S=0:ON-(I$="N")GOTO9:RUN
3 S=S+L:FORT=1TO14:PRINT@480,"":SOUNDT*10,2:NEXT:RETURN
4 GOSUB3:I=16:FORS=STOS+J:R=2-RND(3):FORT=1TORND(3):I=I+R*-(I+R>0ANDI+R<16):?@480,MID$(B$,I,32);:GOSUB1:NEXT:NEXT:GOSUB3
5 FORS=STOS+500:SOUND9,1:FORT=1TO100:?@480,C$;TAB(24);C$;:?@408+RND(47),"#";:GOSUB1:NEXT:S=S+T:?@480,MID$(B$,8+RND(8),32);:NEXT
6 CLS0:FORT=1TO20:SET(RND(63),RND(31),5):NEXT:SOUND100,9:GOSUB3:FORT=1TO5:P(T)=RND(J)+J:NEXT:R(1)=1:R(2)=-1:R(3)=-2:R(4)=2
7 FORS=STOS+L:FORT=1TO5:R=RND(4):?@P(T),"  ";:P(T)=P(T)+(R(R)*-(P(T)+R(R)>0)):?@P(T),D$;:P(T)=P(T)-32:IFP(T)<0THENP(T)=RND(J)+J
8 NEXT:PRINT@511," ";:GOSUB1:NEXT:GOTO4
9 F=0:M=16384:N=16385:D$="/"+CHR$(92):J=250:L=100:ON-(I$<>"N")GOTO6:CLS:PRINT"THANKS FOR PLAYING THE MONTEIRO CHALLENGE!":END
10 REM THE MONTEIRO CHALLENGE
11 REM A&S TO MOVE LEFT & RIGHT
12 REM 3 LEVELS. 100 PTS PER LV
13 REM THEN BACK TO THE START
14 REM 5 GATES ON LEVEL 5.
15 REM GO AS FAR AS POSSIBLE.
16 REM CONCEPT: ERICO MONTEIRO
17 REM PROGRAMMING: JIM GERRIE
